home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 167
/
167.d81
/
u.mondo wordo ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
61 lines
10 poke53280,0:poke53281,0:printchr$(14)
20 print"[147][158] [205] [207] [206] [196] [207] [215] [207] [210] [196] [207] [201] [201]"
30 print" #1 - [196]isable [212]imer? ([217]/[206])"
40 print" #2 - [204]etters [196]on't [198]all? ([217]/[206])"
50 print" #3 - [206]umber [207]f [195]ontinues? (5/9)"
80 print"[201]t's best to use a copy rather than"
90 print"using your original [204][207][193][196][211][212][193][210] disk!"
100 print"[205]ake sure that the [215]rite-[208]rotect tab"
110 print"on the disk is not covered as this"
120 print"program writes to the disk."
130 print"[201]f you would like to make this change,"
140 print"[201]nsert [204]oadstar [201]ssue #150 [211]ide 2 into"
150 print"[196]rive #8 and [211]elect 1, 2, or 3."
152 print"[193]fter [211]electing, [196]o [206][207][212] touch the"
154 print"keyboard or open the disk drive door"
156 print"until the white [195]ursor appears!!!!!!"
160 q$=chr$(34):f$="mondo ii"
170 geta$:ifa$=""then170
172 ifa$="1"then190
174 ifa$="2"then400
176 ifa$="3"then600
178 goto170
190 print"[147][144]l[207]"q$f$q$",8"
200 print"150 ?"q$"[158][196]isable [212]imer? ([217]/[206])"q$
205 print"151 getz$:ifz$="q$q$"then151"
210 print"152 ifz$="q$"y"q$"orz$="q$"n"q$"then154"
215 print"153 goto151"
220 print"154 ifz$="q$"y"q$"t[200]p[207]22413,173:p[207]22600,173:p[207]22981,173"
225 print"155 ifz$="q$"n"q$"t[200]p[207]22413,141:p[207]22600,141:p[207]22981,141"
250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
260 print"p[207]646,1
270 [153]""
280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
290 [162]:[128]
400 [153]"loadstopl(NULL)"q$f$q$",8"
410 [153]"160 ?"q$"sys(NULL)etters str$on't ascall? ((NULL)/(NULL))"q$
420 [153]"161 getz$:ifz$="q$q$"then161"
430 [153]"162 ifz$="q$"y"q$"orz$="q$"n"q$"then164"
440 [153]"163 goto161"
450 [153]"164 ifz$="q$"y"q$"tleft$p(NULL)21717,173"
460 [153]"165 ifz$="q$"n"q$"tleft$p(NULL)21717,206"
470 [153]"o(NULL)15,8,15,"q$"s0:"f$q$":cl(NULL)15:satn"q$f$q$",8"
480 [153]"p(NULL)646,1
490 print""
500 fori=631to640:pokei,13:next:poke198,10
510 new:end
600 print"[147][144]l[207]"q$f$q$",8"
610 print"170 ?"q$"[158][206]umber [207]f [195]ontinues? (5/9)"q$
620 print"171 getz$:ifz$="q$q$"then171"
630 print"172 ifz$="q$"5"q$"orz$="q$"9"q$"then174"
640 print"173 goto171"
650 print"174 ifz$="q$"5"q$"t[200]zz=5"
660 print"175 ifz$="q$"9"q$"t[200]zz=9"
670 print"2140 p[207]v+1,zz:rem continues"
680 print"o[208]15,8,15,"q$"s0:"f$q$":cl[207]15:s[193]"q$f$q$",8"
690 print"p[207]646,1
700 [153]""
710 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
720 [162]:[128]
10000 [159]15,8,15,"s0:u.mondo wordo ii":[160]15:[148]"u.mondo wordo ii",8:[128]